home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
windows5
/
v11n18.zip
/
DBA.ZIP
/
DBA.BAT
< prev
Wrap
DOS Batch File
|
1991-01-27
|
880b
|
34 lines
@echo off
if exist %1.DBA goto :PREP
if not '%1'=='' echo File does not exist: %1.DBA
echo PASS 1='DBA name' PASS 2='DBA name length'
goto :EXIT
:PREP
echo>@1@ A 100
echo>@2@ ;____;;END: LENGTH = (END-0100H)
echo>>@2@/
if '%2'=='' goto :PASS1
echo>>@2@ U 100 L %2
echo>>@2@ D 100 L %2
echo>>@2@ RCX
echo>>@2@ %2
echo>>@2@ N %1.COM
echo>>@2@ W
:PASS1
echo>>@2@ Q
copy @1@+%1.DBA+@2@ @3@ >nul
debug <@3@ >%1.DBL
find <%1.DBL " ^ Error" > @4@
copy @4@ @5@ >nul
if not exist @5@ goto :NOERR
if exist %1.com del %1.com
type %1.dbl
echo ==== Fix DEBUG syntax errors and re-run this pass
goto :exit
:NOERR
find <%1.DBL ";;"
if '%2'=='' echo ==== PASS 1: If addresses ok: DBA %1 LENGTH
if not '%2'=='' echo ==== PASS 2: If addresses ok: %1
:EXIT
if exist @?@ del @?@